5 REM"[141] SCREEN DESIGNER  BY WILLIAM A CHRISTIE  [158]
10 [145] A [137] 30,40
20 A[178]1:[147]"CRUNCH/DECR.MC",8,1
30 A[178]2:[147]"GETCHAR.MC",8,1
40 [151]55,190:[151]56,47:[156]:[143] END OF BASIC MEMORY=$3000-64
50 V[178]53248:[151]2040,191:[151]650,128:[151]53280,6:[151]53281,0
55 [151]1022,0:[143] RESET SCREEN MEMORY
60 [143] POKE788,52:REM DISABLE RUN/STOP
70 BASE[178]4096[172]4:A[178]BA:[141] 1510:BH[178]HB:BL[178]LB
80 [129]N[178]12224[164]N[170]63:[151]N,0:[130]
90 [129]N[178]12224[164]N[170]23:[135]S:[151]N,S:[130]
100 [131] 255,0,0,129,0,0,129,0,0,129,0,0,129,0,0,129,0,0,129,0,0,255,0,0
110 [151]V[170]21,0:[153]"LOAD"[163]12)"SCLISTREPRINT#EN DELISTSIPRINT#GNPOKEER"
115 [153][163]12)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
116 [153][163]10)"FORBY WILLIAM CHRISTIE"
120 [153][163]8)"FOR COMMODORE DISK USER"
130 [153]""[163]7)"PRINTF1 :ALTER BACKGROUND COLOUR"
140 [153][163]7)"PRINTF2 :ALTER FOREGROUND COLOUR"
150 [153][163]7)"PRINTF3 :ALTER CHARACTER COLOUR"
160 [153][163]7)"PRINTF5 :SUBSTITUTE CHARACTER"
170 [153][163]7)"PRINTF7 :MAIN MENU"
180 TX$[178]"CONTSCREEN NUMBER (1-255) ?:OPEN":X[178]7:Y[178]17:[141]2000
182 SN[178]S1:SN$[178]S1$:SL[178]S2:[137]280
280 [153]"LOAD":[151]251,10:[151]252,10:[151]253,0:[151]V[170]21,1:SP[178]35:[151]56325,SP
290 CR[178]32768:DC[178]33536:[143] CRUNCH/DECR
300 CL[178]51218:[143] CLEARMID4LINES
310 RE[178]51243:[143] RETURNMID4LINES
320 GC[178]50704:[143] GETCHAR
330 RC[178]51699:[143] CHARACTER ROM COPY
340 DS[178]51755:[143] DELETE SCREEN
360 LS[178]52011:[143] LIST SCREEN NUMBERS
362 RN[178]52126:[143] RENUMBER
365 AL[178]52199:[143] ALTER SCREEN NUMBER
370 [151]V[170]21,1:[158] GC:[143] GETCHAR
380 [151]781,10:[151]782,1:[151]783,0:[158]65520:[151]V[170]21,0
390 [153]"(";[201](SN$,SL);") ";"WWAITIPE CWAITRUNCH GWAITET NWAITUM LWAIT SWAIT RWAITEN";
391 [153]"UM XWAITY"
400 [153]" VWAIT DWAITEL BWAITGN MWAITEM RAWAITM COPWAITY ALTWAIT LIWAITST MCOWAITL12WAIT"
410 [161]T$:[139]T$[178]""[167]410
420 [139] [198](T$)[178]136[167] 410
422 [139] T$[178]"R" [175][194](1022)[178]1[167]2200
424 [139] T$[178]"T" [175][194](1022)[178]1[167]2300
425 [139] T$[178]"C" [167] [151]V[170]21,1:[137] 850
430 [139] T$[179][177]"O" [167] 440
431 [137] 433
432 [161]T$:[139]T$[178]""[167]432
433 [139]T$[178]"O"[175][194](53270)[179][177]216 [167] [151]53270,216:[158] RE:[137]435
434 [139]T$[178]"O"[175][194](53270)[179][177]200 [167] [151]53270,200:[158] RE
435 [139] T$[178]"1" [167] [151]53282,([194](53282)[175]15)[170]1
436 [139] T$[178]"2" [167] [151]53283,([194](53283)[175]15)[170]1
437 [139] [198](T$)[179][177]13[167]432
438 [137] 370
440 [139] T$[178]"W" [167] [153]"LOAD":[137]370
450 [139] T$[178]"N" [167] 610
460 [139] T$[178]"G" [175] [194](1022)[178]1 [167] 720
470 [139] T$[178]"P" [167] [158] RC:[137]590
480 [139] T$[178]"I" [175] [194](1022)[178]1 [167] [158]LS:[141]1700:[153]"LOAD":[137]370
490 [139] T$[178]"S" [167] 970
500 [139] T$[178]"B" [167] 1550
510 [139] T$[178]"L" [167] 1090
520 [139] T$[178]"V" [175] [194](1022)[178]1[167] 1250
530 [139] T$[178]"M" [167] 1630
550 [139] T$[178]"D" [175] [194](1022)[178]1[167] 1750
555 [139] T$[178]"X" [167] 2400
560 [139] T$[179][177]"A" [167] 590
570 [139][194](53272)[178]21 [167] [151]53272,31:[137]590
580 [151]53272,21
590 [158] RE:[143] RETURNMIN4LINES
600 [137]370
609 [143] *****SET SCREEN NUMBER**
610 Y[178]13:X[178]7:TX$[178]"ENTER SCREEN NUMBER :":[141]2000:[151]V[170]21,1
620 SN[178]S1:SN$[178]S1$:SL[178]S2:[158]RE:[137]370
699 [143] ********GET SCREEN******
720 TX$[178]"WHICH SCREEN NUMBER ?":X[178]7:Y[178]13:[141]2000
800 A[178]S1:[141]1510:[151]820,LB:[151]821,HB:[158]RE
810 [158] DC:[139]([194](2)[175]1)[178]0[167] 370
820 [151]V[170]21,0:[151]781,13:[151]782,1:[151]783,0:[158]65520
830 [153]"          SCREEN NOT FOUND!       "
840 [141]1700:[151]V[170]21,1:[158]RE:[137]370
849 [143] **********CRUNCH********
850 [139] SN[178]255 [167] [153]"  NEXT SCREEN NUMBER>255 -ALTER NUMBER":[137]610
855 [158] RE:[143] RETURNMIN4LINES
860 A[178]SN:[141]1500:[151]820,LB:[151]821,HB
880 [151]V[170]23,1:[151]V[170]29,1
890 [158]CR:[139]([194](2)[175]128)[178]0[167]900
895 [151]V[170]23,0:[151]V[170]29,0:[158]CL:[153][163]9)"OUT OF CRUNCH MEMORY"
896 [151]V[170]21,0:[137]1630
900 SN[178]SN[170]1:SN$[178][196](SN):SL[178][195](SN$)[171]1:[151]V[170]23,0:[151]V[170]29,0:[137]370
950 :
960 [143] *** SAVE ****
970 EL[178][194](BASE)[170]1
980 EH[178][194](BASE[170]1)
990 [139] EL[178]256[167]EL[178]0:EH[178]EH[170]1
1000 [141]1170:[139] F$[178]""[167]280
1010 [158]57812F$,D,1:[151]193,BL:[151]194,BH:[143]$4000=BASE
1020 [151]174,EL:[151]175,EH:[143] END
1030 [158]62957:[143] SAVE
1040 [133]"END (Y/N)";E$
1050 [139] E$[178]"N"[167]280
1060 [128]
1070 :
1080 [143] **** LOAD *****
1090 [141] 1170:[139] F$[178]""[167]280
1091 [139] F$[178]"$"[167]1900
1100 [151]147,0:[158]57812F$,D,1:[158]62631
1110 [139] T$[178]"T"[167] 1140
1120 [159]15,8,15:[132]15,Z1,Z$,Z2,Z3:[160]15
1130 [153]"CMD"Z1;Z$;Z2;Z3:[141]1700
1140 [151]1022,1:[137]280
1150 :
1160 [143] ***GET LOAD/SAVE PARAMETERS***
1170 [153]"LOADDWAITISK OR TWAITAPE   :";
1180 [161]T$:[139]T$[178]""[167]1180
1185 [139] [198](T$)[178]13[167][142]
1190 D[178]1:[139] T$[178]"D"[167] D[178]8:[137]1210
1200 [139] T$[179][177]"T"[167] 1180
1210 [153]T$:[133]"ENTER FILENAME :CMDCMD";F$
1220 [142]
1230 :
1240 [143] **VIEW ALL/SELECTED SCREENS**
1250 [151]53280,9:[151]53281,9
1270 [153]"LOAD"[163]6)"VIEW ALL/SELECTED SCREENS"
1280 [153][163]6)"LISTUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRPRINT"
1290 TX$[178]"ENTER START SCREENSYS :":X[178]8:Y[178]10:[141]2000:S[178]S1
1300 TX$[178]"ENTER  END  SCREENSYS :":X[178]8:Y[178]11:[141]2000:E[178]S1:[153]
1320 [139] S[177]E[167] 1290
1330 [153][163]4);:[153]"PRESS 'RETURN' FOR NEXT SCREEN"
1340 [153][163]10);:[153]"PRESS 'E' TO EXIT"
1350 [153][163]6)"PRESS 'C' FOR FIRST SCREEN"
1360 [153][163]10)"PRESS 'X' TO CORECT"
1370 [161]K$:[139]K$[178]""[167]1370
1380 [139] K$[178]"C"[167]1410
1390 [139] K$[178]"X"[167]1270
1400 [137] 1370
1410 A[178]S:AS[178]SN:[153]"LOAD"
1420 [141] 1510:[151]820,LB:[151]821,HB
1430 [158] DC:[139] A[178]E[167]SN[178]AS:[137]370
1440 [139] ([194](2)[175]1)[178]1[167]A[178]A[170]1:[137]1420
1450 [161]T$:[139]T$[178]""[167]1450
1460 [139] T$[178]"E"[167] SN[178]AS:[137]370
1470 [139] T$[178]"C"[167] 1450
1480 A[178]A[170]1:[137] 1420
1490 :
1500 [143] ****CONVERT TO 2 BYTE VAL****
1510 HB[178][181](A[173]256):LB[178]A[171](HB[172]256):[142]
1520 :
1530 [143] **INITIALISE SCREEN POINTER***
1540 [143] *****TO START OF MEMORY*******
1550 [153][163]9)"ONARE YOU SURE (Y/N)WAIT"
1560 [161]Y$:[139]Y$[178]""[167]1560
1570 [139] Y$[178]"N"[167] [158] RE:[137]370
1580 [139] Y$[179][177]"Y"[167]1560
1590 [153][163]16)"O.K."
1600 [141]1700:[158] RE:[151]1022,0:[137]370
1610 :
1620 [143] ****PRINT MEMORY USED****
1630 [139] [194](1022)[178]0[167]L[178]BA:[137]1650
1640 L[178][194](BA)[170][194](BA[170]1)[172]256
1650 [153][163]5)"NEXT SCREEN AT"L"($";
1660 L[178]L[173]4096:[129]J[178]1[164]4:L%[178]L:L$[178][199](48[170]L%[171](L%[177]9)[172]7)
1670 [153]L$;:L[178]16[172](L[171]L%):[130]:[153]")":[141] 1700:[158] RE:[137]370
1680 :
1690 [143] *****WAIT FOR KEYPRESS****
1700 [129]T[178]1[164]500:[130]:[151]198,0
1710 [161]R$:[139]R$[178]""[167]1710
1720 [142]
1730 :
1740 [143] *****DELETE SCREEN****
1750 X[178]3:Y[178]13:TX$[178]"DELETE WHICH SCREEN(S) :":[141]2100
1760 A[178][197](A$):[139] A[178]13 [176] A[178]0 [167] [158]RE:[137]370
1770 LA[178][195](A$):[129]N[178]1[164]LA:[139] [202](A$,N,1)[178]"-"[167]1790
1780 [130]:N1[178]A:N2[178]A:[137]1820
1790 N1[178][197]([202](A$,1,N[171]1))
1800 N2[178][197]([202](A$,N[170]1,[195](A$)[171]N))
1810 N[178]LA:[139] N2[178]0[167]N2[178]SN[171]1:[143] "NUM-"
1820 [129]N[178]N1[164]N2:A[178]N:[141]1510:[151]820,LB:[151]821,HB:[158]DS:[130]:[158]RE:[137]370
1828 :
1898 :
1899 [143] ****READ DISK DIRECTORY*****
1900 [159]1,8,0,"$"
1905 [161]#1,Z$,Z$
1910 [161]#1,Z$,Z$,Z$,Z$
1920 [139] ST [167] [160] 1:[141]1700:[137]370
1924 [161]#1,Z$:[139]Z$[178]""[167][153]:[137]1910
1930 [139] Z$[178][199](34)[167]Q[178][168] Q
1950 [139] Q [167] [153]Z$;
1960 [137] 1924
1998 :
1999 [143] ****GET NUMERIC INPUT*****
2000 [151]781,Y:[151]782,0:[151]783,0:[158]65520:[151]V[170]21,0:[151]650,0
2010 [153]"                                       ":TT$[178]""
2020 [151]781,Y:[151]782,X:[151]783,0:[158]65520:[153]TX$;:[139]F[178]1[167][142]
2030 [161]T$:[139]T$[178]""[167]2030
2035 [139] T$[178]"_"[167] 2000
2040 [139] [198](T$)[178]13 [167] 2090
2060 [139] [198](T$)[179]48 [176] [198](T$)[177]57 [167]2030
2070 [139] [195](TT$)[178]6 [167]2000
2080 TT$[178]TT$[170]T$:[153]T$;:[137]2030
2090 S1[178][197](TT$):[139] S1[177]255 [176] S1[179]1 [167]2000
2093 S1$[178][196](S1):S2[178][195](S1$)[171]1:[151]650,128:[142]
2098 :
2099 [143] *****GET STRING INPUT******
2100 F[178]1:A$[178]"":[141] 2000
2110 [161]T$:[139]T$[178]""[167]2110
2115 T[178][198](T$)
2120 [139] T$[178]"_" [167] 2100
2130 [139] T[178]13 [167] F[178]0:[151]650,128:[142]
2135 [139] T[177]47 [175] T[179]58 [176] T$[178]"-" [167] 2150
2140 [137]2110
2150 A$[178]A$[170]T$:[139][195](A$)[179]12[167][153]T$;:[137]2110
2160 [137]2100
2198 :
2199 [143] *****RENUMBER*****
2200 TX$[178]"RENUMBER INCREMENT :":X[178]7:Y[178]13:[141]2000
2210 [151]695,S1:[158]RN:[158]RE:[137]370
2298 :
2299 [143] ****ALTER SCREEN NUMBER***
2300 TX$[178]"TARGET SCREEN NUMBER :":X[178]5:Y[178]12:[141]2000:A[178]S1:[141]1510
2310 [151] 820,LB:[151]821,HB
2320 TX$[178]"NEW SCREEN NUMBER    :":X[178]5:Y[178]13:[141]2000:A[178]S1:[141]1510
2330 [151] 695,LB:[151]696,HB
2340 [158] AL:[139]([194](2)[175]1)[178]0[167][158]RE:[137]370
2350 [158]RE:[137]820
2390 :
2391 [143] ****PRINT CRSR CO-ORDS***
2400 A[178]1024[170][194]($02B2)[170]40[172][194]($02B3):[141]1510
2405 F[178]1:TX$[178]"HB=":X[178]12:Y[178]12:[141]2000:[153]HB;"LB=";LB
2410 [141]1700:[158]RE:F[178]0:[137]370